home *** CD-ROM | disk | FTP | other *** search
/ PC-SIG: World of Games / PC-SIG World of Games (CDRM1080710) (1993).iso / 55 / SESAME.BAS < prev    next >
BASIC Source File  |  1983-02-19  |  4KB  |  176 lines
  1. 10 KEY OFF:CLS
  2. 20 PRINT"░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  3. 30 PRINT"░┌───────────────────────────────────┐░"
  4. 40 PRINT"░│                                   │░"
  5. 50 PRINT"░│            5008-A.BAS             │░"
  6. 60 PRINT"░│              SESAME               │░"
  7. 70 PRINT"░│                                   │░"
  8. 80 PRINT"░│                                   │░"
  9. 90 PRINT"░│ BROUGHT TO YOU BY THE MEMBERS OF  │░"
  10. 100 PRINT"░│      ▄▄▄▄▄ ▄▄▄▄▄ ▄▄▄▄▄ ▄▄▄▄▄      │░"
  11. 110 PRINT"░│        █   █   █ █     █   █      │░"
  12. 120 PRINT"░│        █   █▄▄▄█ █     █   █      │░"
  13. 130 PRINT"░│        █   █     █     █   █      │░"
  14. 140 PRINT"░│      ▄▄█▄▄ █     █▄▄▄▄ █▄▄▄█      │░"
  15. 150 PRINT"░│                                   │░"
  16. 160 PRINT"░│      International PC Owners      │░"
  17. 170 PRINT"░│                                   │░"
  18. 180 PRINT"░│P.O. Box 10426, Pittsburgh PA 15234│░"
  19. 190 PRINT"░│                                   │░"
  20. 200 PRINT"░└───────────────────────────────────┘░"
  21. 210 PRINT"░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  22. 220 PRINT
  23. 230 PRINT "       PRESS ANY KEY TO CONTINUE
  24. 240 A$=INKEY$: IF A$="" THEN 240
  25. 250 CLS
  26. 1000 KEY OFF
  27. 1010 CLS:WIDTH 40:LOCATE 10,19:PRINT "The":LOCATE 12,14:PRINT "Sesame Street":LOCATE 14,18:PRINT "Song"
  28. 1020 LOCATE 25,11,0:PRINT "Hit any key to begin"
  29. 1030 P$=INKEY$:IF P$="" GOTO 1030
  30. 1040 A$="c4"
  31. 1050 B$="C8"
  32. 1060 CLS:PRINT "Sun";
  33. 1070 PLAY "P4O4XA$+B$;"
  34. 1080 PRINT "ny ";
  35. 1090 PLAY "O3a4"
  36. 1100 PRINT "day ";
  37. 1110 PLAY "F2"
  38. 1120 PRINT "sweep";
  39. 1130 PLAY "L8F"
  40. 1140 PRINT "in' ";
  41. 1150 PLAY "G16"
  42. 1160 PRINT "the ";
  43. 1170 PLAY "A4P4"
  44. 1180 PRINT "clouds ";
  45. 1190 PLAY "O4XA$+B$;"
  46. 1200 PRINT "a";
  47. 1210 PLAY "O3A4"
  48. 1220 PRINT "way"
  49. 1230 PLAY "F1"
  50. 1240 PRINT:PRINT:PRINT
  51. 1250 PRINT "on ";
  52. 1260 PLAY "P4O4XA$+B$;"
  53. 1270 PRINT "my ";
  54. 1280 PLAY "O3a4"
  55. 1290 PRINT "way ";
  56. 1300 PLAY "F4"
  57. 1310 PRINT "to ";
  58. 1320 PLAY "f8"
  59. 1330 PRINT "where ";
  60. 1340 PLAY "g4"
  61. 1350 PRINT "the ";
  62. 1360 PLAY "a4"
  63. 1370 PRINT "air ";
  64. 1380 PLAY "b4"
  65. 1390 PRINT "is ";
  66. 1400 PLAY "O4xa$+b$;"
  67. 1410 PRINT "sweet."
  68. 1420 C$="d2"
  69. 1430 D$="d2"
  70. 1440 PLAY "XC$+D$;"
  71. 1450 PRINT:PRINT:PRINT
  72. 1460 PRINT "Can ";
  73. 1470 PLAY "c8"
  74. 1480 PRINT "you ";
  75. 1490 PLAY "d16"
  76. 1500 PRINT "tell ";
  77. 1510 PLAY "l4e-"
  78. 1520 PRINT "me ";
  79. 1530 PLAY "d4"
  80. 1540 PRINT "how ";
  81. 1550 PLAY "c4"
  82. 1560 PRINT "to ";
  83. 1570 PLAY "o3a8"
  84. 1580 PRINT "get,"
  85. 1590 PLAY "g16p4"
  86. 1600 PRINT:PRINT:PRINT
  87. 1610 PRINT "how ";
  88. 1620 PLAY "g8"
  89. 1630 PRINT "to ";
  90. 1640 PLAY "a16"
  91. 1650 PRINT "get ";
  92. 1660 PLAY "O3b4"
  93. 1670 PRINT "to ";
  94. 1680 PLAY "a4"
  95. 1690 PRINT "Ses";
  96. 1700 PLAY "g8"
  97. 1710 PRINT "a";
  98. 1720 PLAY "c8"
  99. 1730 PRINT "me ";
  100. 1740 PLAY "c8"
  101. 1750 PRINT "Street? "
  102. 1760 PLAY "c1"
  103. 1770 CLS
  104. 1780 CLS:PRINT "Come ";
  105. 1790 PLAY "P4O4XA$+B$;"
  106. 1800 PRINT "and ";
  107. 1810 PLAY "O3a4"
  108. 1820 PRINT "play! ";
  109. 1830 PLAY "F2"
  110. 1840 PRINT "Ev' ";
  111. 1850 PLAY "L8F"
  112. 1860 PRINT "ry ";
  113. 1870 PLAY "G16"
  114. 1880 PRINT "thing's ";
  115. 1890 PLAY "A4P4"
  116. 1900 PRINT "A-";
  117. 1910 PLAY "O4XA$+B$;"
  118. 1920 PRINT "O-";
  119. 1930 PLAY "O3A4"
  120. 1940 PRINT "kay."
  121. 1950 PLAY "F1"
  122. 1960 PRINT:PRINT:PRINT
  123. 1970 PRINT "Friend";
  124. 1980 PLAY "P4O4XA$+B$;"
  125. 1990 PRINT "ly ";
  126. 2000 PLAY "O3a4"
  127. 2010 PRINT "neigh";
  128. 2020 PLAY "F4"
  129. 2030 PRINT "bors ";
  130. 2040 PLAY "f8"
  131. 2050 PRINT "there, ";
  132. 2060 PLAY "g4"
  133. 2070 PRINT "that's ";
  134. 2080 PLAY "a4"
  135. 2090 PRINT "where ";
  136. 2100 PLAY "b4"
  137. 2110 PRINT "we ";
  138. 2120 PLAY "O4xa$+b$;"
  139. 2130 PRINT "meet."
  140. 2140 C$="d2"
  141. 2150 D$="d2"
  142. 2160 PLAY "XC$+D$;"
  143. 2170 PRINT:PRINT:PRINT
  144. 2180 PRINT "Can ";
  145. 2190 PLAY "c8"
  146. 2200 PRINT "you ";
  147. 2210 PLAY "d16"
  148. 2220 PRINT "tell ";
  149. 2230 PLAY "l4e-"
  150. 2240 PRINT "me ";
  151. 2250 PLAY "d4"
  152. 2260 PRINT "how ";
  153. 2270 PLAY "c4"
  154. 2280 PRINT "to ";
  155. 2290 PLAY "o3a8"
  156. 2300 PRINT "get,"
  157. 2310 PLAY "g16p4"
  158. 2320 PRINT:PRINT:PRINT
  159. 2330 PRINT "how ";
  160. 2340 PLAY "g8"
  161. 2350 PRINT "to ";
  162. 2360 PLAY "a16"
  163. 2370 PRINT "get ";
  164. 2380 PLAY "O3b4"
  165. 2390 PRINT "to ";
  166. 2400 PLAY "a4"
  167. 2410 PRINT "Ses";
  168. 2420 PLAY "g8"
  169. 2430 PRINT "a";
  170. 2440 PLAY "c8"
  171. 2450 PRINT "me ";
  172. 2460 PLAY "c8"
  173. 2470 PRINT "Street? "
  174. 2480 PLAY "c1"
  175. 2490 CLS
  176. L